home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_clk2 / frm_disp.frm < prev    next >
Text File  |  1995-09-06  |  959b  |  43 lines
  1. VERSION 2.00
  2. Begin Form FRM_Disp 
  3.    ClientHeight    =   60
  4.    ClientLeft      =   2235
  5.    ClientTop       =   4650
  6.    ClientWidth     =   1560
  7.    Height          =   750
  8.    Left            =   2175
  9.    LinkMode        =   1  'Source
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   60
  14.    ScaleWidth      =   1560
  15.    Top             =   4020
  16.    Visible         =   0   'False
  17.    Width           =   1680
  18.    Begin Menu mdHead 
  19.       Caption         =   "Display"
  20.       Begin Menu mDisp 
  21.          Caption         =   "space keeping"
  22.          Index           =   1
  23.       End
  24.    End
  25. End
  26.  
  27. Sub Form_Load ()
  28.     For x% = 2 To NumTypes
  29.         Load mDisp(x%)
  30.     Next x%
  31. End Sub
  32.  
  33. Sub mdHead_Click ()
  34.     For x% = 1 To NumTypes
  35.         mDisp(x%).Caption = GetInfo(x%)
  36.     Next x%
  37. End Sub
  38.  
  39. Sub mDisp_Click (Index As Integer)
  40.     DispItem = Index
  41. End Sub
  42.  
  43.